BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Ss-Sz/Stack Starter ß.979/Stack Starter fl.979/background_2295.txt

Text File | 1989-07-29 | 58.7 KB | 2,090 lines

-- background: 2295 from stack: in.979
-- bmap block id: 16109
-- flags: 4000
-- background id: 0
-- name: Stack Starter Bkgnd 1
----- HyperTalk script -----
‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû Script info for this bkgnd. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
HANDLERS: playAll,openCard,idle,openBackground

FUNCTIONS:

Size of script: 568 chars.         8/16/88         Robertson Reed Smith
‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû


on playAll
  repeat with btnid = 1 to 8
    send mouseUp to card btn id btnid
  end repeat
end playAll

on openCard
  put the short name of this card into bkgnd field "Title"
  put "Prev Card:" && short name of prev card into field id 78
  put "Next Card:" && short name of next card into field id 79
  pass openCard
end openCard

on idle
  if visible of field "Mouse Loc2" is true then
    put the mouseLoc into field "Mouse Loc2"
  end if
  send idle to stack
  exit idle
end idle

on openBackground
  hide bkgnd btn id 121
  pass openBackground
end openBackground



-- part 54 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=261 top=290 right=302 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 80 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=15 top=65 right=311 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 511
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grid Cover
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 71 (button)
-- low flags: 80
-- high flags: 4002
-- rect: left=224 top=62 right=75 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mouse Loc


-- part 42 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=13 top=311 right=327 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=217 top=283 right=301 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Î Í Ï
----- HyperTalk script -----
on mouseUp
  get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 3))

  if it is 0 then
    scroll L
    go prev card
  else if it is 1 then
    scroll D
    doMenu "Home"
  else if it is 2 then
    scroll R
    go next card
  end if
end mouseUp


-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=62 top=31 right=66 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 185
-- text size: 26
-- style flags: 10496
-- line height: 34
-- part name: Title


-- part 58 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=58 top=311 right=327 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=92 top=311 right=327 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=150 top=311 right=327 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Controls
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=210 top=311 right=327 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Effects
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=264 top=311 right=327 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fields
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=309 top=311 right=327 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Icons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=351 top=311 right=327 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripts
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=403 top=311 right=327 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sounds
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=454 top=311 right=327 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tools
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
  set hilite of me to false
end mouseUp



-- part 67 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=223 top=62 right=74 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name: Mouse Loc1
----- HyperTalk script -----
on mouseUp
  put the mouseLoc into field "Mouse Loc2"
  send idle to bkgnd id 2600
end mouseUp



-- part 68 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=311 top=62 right=76 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name: Mouse Loc2
----- HyperTalk script -----
on mouseUp
  put the mouseLoc into field "Mouse Loc2"
  send idle to bkgnd id 2600
end mouseUp



-- part 72 (button)
-- low flags: 80
-- high flags: 4002
-- rect: left=15 top=300 right=312 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Prev Card: the sound sampler
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 73 (button)
-- low flags: 80
-- high flags: 4002
-- rect: left=253 top=300 right=312 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Next Card: Panic Spredsheet
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 78 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=16 top=299 right=313 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  scrollL
  go to card char 12 to 99 of short name of me
end mouseUp



-- part 79 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=252 top=299 right=313 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  scrollR
  go to card char 12 to 99 of short name of me
end mouseUp



-- part 81 (button)
-- low flags: 80
-- high flags: 4002
-- rect: left=370 top=62 right=75 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FreeSpaceMon
----- HyperTalk script -----
on mouseUp
  freeSpace
end mouseUp



-- part 82 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=369 top=62 right=76 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name: FreeSpaceMon1


-- part 83 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=435 top=62 right=76 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name: FreeSpaceMon2


-- part 93 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=12 top=26 right=38 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: A | B | C | D | E | F | G | H |  I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -
----- HyperTalk script -----
on mousedown
  global Fred, Nick
  set hilite of me to true
  if Fred <> empty then
    if visible of field Fred is true then hide field Fred
  end if
  put the rect of the target into holder
  put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  put (item 3 of the rect of me) - (item 1 of the rect of me) into B
  put the numToChar of (trunc(A/(B/28))+65) into Fred
  if Fred is empty then
  else if Fred is "[" then indexAddName
  else if Fred is "\" then indexDeleteName
  else
    play Fred
    if the commandKey is down then indexEditMode
    else
      put (item 1 of the clickloc-6) into horiz
      put (item 2 of holder)+12 into vert
      get script of field Fred
      if it is empty then
        answer "Oops, nothing to display." with "Sorry"
        exit mouseDown
      else
        put return & "Edit Menu" after it
        get HPopupMenu(it,0, vert, horiz)
        --get HeirPopupMenu(it,0, vert, horiz)
        if it is "0" then exit mouseDown
        put Item 1 of it into TheLine
        put Item 2 of it into TheItem
        if Item 2 of it <> 1 then
          put item 1 of line TheLine of script of field Fred & item TheItem of line TheLine of script of field Fred into Sam
        else
          put (item 1 of line TheLine of script of field Fred) into Sam
        end if
        if sam = empty then indexEditMode
        -- put sam
        if char 1 of sam is "A" then
          if Sam is "About Stack Starter" then go card "the stack starter"
          else if Sam is "Add Script Header" then ScriptHeader
          else if Sam is "Allover Analyzer" then go card "the allover analyzer"
          else if Sam is "Animated Icons 1" then go card "animated icons 1"
          else if Sam is "Animated Icons 2" then go card "animated icons 2"
          else if Sam is "Animated Icons 3" then go card "animated icons 3"
          else if Sam is "Animated Icons 4" then go card "animated icons 4"
          else if Sam is "Animated Icons 5" then go card "animated icons 5"
          else if Sam is "Animated Icons 6" then go card "animated icons 6"
          else if Sam is "Author" then author
        end if
        if char 1 of sam is "B" then
          if Sam is "Blind Typing" then set BlindTyping to true
          else if Sam is "Button breeder" then go card "the button breeder"
          else if Sam is "Button Font Changer" then changeFont
          else if Sam is "Buttons" then go to card "the button breeder"
          else if Sam is "Buttons Change Font" then changeFont
          else if Sam is "Buttons Create" then go card "the button breeder"
          else if Sam is "Buttons Direction" then go card "the button breeder"
          else if Sam is "Buttons Misc..." then go card "the button breeder"
          else if Sam is "Buttons Multi-Icon" then go card "multi-icon buttons"
          else if Sam is "Buttons Push" then go card "Pushbuttons and Switches"
          else if Sam is "Buttons Radio" then go card "Pushbuttons and Switches"
          else if Sam is "Buttons Slider" then go to card "sliders"
          else if Sam is "Buttons Smart" then go card "Pushbuttons and Switches"
          else if Sam is "Buttons Switches" then go card "Pushbuttons and Switches"
          else if Sam is "Buttons Toggle" then go card "Pushbuttons and Switches"
        end if
        if char 1 of sam is "C" then
          if Sam is "Change Button Font" then changeFont
          else if Sam is "Controls" then go to card "the controls cultivator"
          else if Sam is "Controls Guages" then go card "guages and meters"
          else if Sam is "Controls Meters" then go card "gauges and meters"
          else if Sam is "Controls Pushbuttons" then go card "Pushbuttons and Switches"
          else if Sam is "Controls Sliders" then go card "the controls cultivator"
          else if Sam is "Controls Switches" then go card "Pushbuttons and Switches"
          else if Sam is "Controls Knobs" then go to card "knobs"
          else if Sam is "Cover" then go to card "the stack starter"
          else if Sam is "Crash" then crash
          else if Sam is "Create An Icon" then MakeIcon
          else if Sam is "Credits" then credits
          else if Sam is "Cursors" then cursors
        end if
        if char 1 of sam is "D" then
          if Sam is "Date & Time" then timeDate
          else if Sam is "Dedications" then dedications
          else if Sam is "Descriptions" then go card "the stack starter"
          else if Sam is "Digitized Sounds" then go card "the sound sampler"
          else if Sam is "DeProtect Stack" then deprotect1
          else if Sam is "Disk Space Available" then diskSpaceAvail
          else if Sam is "Don't Click Here" then overLoad
          else if Sam is "Don't Panic" then panic
        end if
        if char 1 of sam is "E" then
          if Sam is "Edit This... Bkgnd Script" then edit script of this bkgnd
          else if Sam is "Edit This... Card Script" then edit script of this card
          else if Sam is "Edit This... Stack Script" then edit script of this stack
          else if Sam is "Effects Sound" then go card "the sound sampler"
          else if Sam is "Effects Visual" then go card "the effects editor"
          else if Sam is "Effects Editor" then go card "the effects editor"
          else if Sam is "Explanations" then go card "the stack starter"
        end if
        if char 1 of sam is "F" then
          if Sam is "Field Fabricator" then go card "the field fabricater"
          else if Sam is "Fields" then go card "the field fabricater"
          else if Sam is "Fields Locking" then go card "the field fabricater"
          else if Sam is "Fields Growing" then go card "the field fabricater"
          else if Sam is "Fields Note" then go card "the field fabricater"
          else if Sam is "Fields Repositionable" then go card "the field fabricater"
          else if Sam is "Fonts" then
            go card "the master map"
            send mouseUp to btn id 28
          else if Sam is "Free-Roaming Icons" then go card "Animated Icons 1"
          else if Sam is "Free Space in this stack" then freeSpace
          else if Sam is "Free Space Monitor" then freeSpaceMon
        end if
        if char 1 of sam is "G" then
          if Sam is "Gauges" then go card "meters and gauges"
          else if Sam is "Get Specs" then getSpecs
          else if Sam is "Graphic Examples" then pause
          else if Sam is "Graphic Techniques" then pause
          else if Sam is "Grid" then piGrid
        end if
        if char 1 of sam is "H" then
          if Sam is "Handlers" then go to card "the helpful hierarchy"
          else if Sam is "Heap Space Available" then heapSpaceAvail
          else if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"
          else if Sam is "Hidden Buttons" then ShowHiddenBtns
          else if Sam is "Hidden Fields" then ShowHiddenFields
          else if Sam is "Hierarchy" then go to card "the helpful hierarchy"
          else if Sam is "HyperCard Version?" then HyperCardVersion
          else if Sam is "HyperEdit" then answer "Hold down the return Key and the shift Key"
          else if Sam is "HyperSound‚Ñ¢" then go to stack "HyperSound"
        end if
        if char 1 of sam is "I" then
          if Sam is "Icon Ideas" then go to card "the icon initiator"
          else if Sam is "Icon Initiator" then go to card "the icon initiator"
          else if Sam is "Indicaters" then go to card "Pushbuttons and Switches"
          else if Sam is "Inhieritance Path" then go to card "the helpful hierarchy"
          else if Sam is "Icons" then go to card "the icon initiator"
          else if Sam is "Icons Animated 1" then go card "animated icons 1"
          else if Sam is "Icons Animated 2" then go card "animated icons 2"
          else if Sam is "Icons Animated 3" then go card "animated icons 3"
          else if Sam is "Icons Animated 4" then go card "animated icons 4"
          else if Sam is "Icons Animated 5" then go card "animated icons 5"
          else if Sam is "Icons Animated 6" then go card "animated icons 6"
          else if Sam is "Icons Editor" then MakeIcon
          else if Sam is "Icons Examples" then go to card "the icon initiator"
          else if Sam is "Icons Ideas" then go to card "the icon initiator"
          else if Sam is "Icons Installed on HomeCard" then installHomeCardIcon
          else if Sam is "Icons Initiator" then go to card "the icon initiator"
          else if Sam is "Icons Interactive" then go card "animated icons 1"
          else if Sam is "Install HomeCard Icon" then installHomeCardIcon
          else if Sam is "Interactive Icons" then go to card "Animated Icons 1"
          else if Sam is "Intro" then pause
        end if
        if char 1 of sam is "K" then
          if Sam is "Keyboard Simulator" then go card "Keyboard"
          else if Sam is "Knobs" then go to card "knobs"
        end if
        if char 1 of sam is "L" then
          if Sam is "Last Updated" then updated
          else if Sam is "List Next & Prev Cards" then LNPC
        end if
        if char 1 of sam is "M" then
          if Sam is "Make Icons" then MakeIcon
          else if Sam is "Map" then go to card "the master map"
          else if Sam is "Menus" then answer "Sorry, This feature not yet supported"
          else if Sam is "Meters" then go to card "meters"
          else if Sam is "Mouse Location" then mouseLocation
          else if Sam is "Multi-Icon Buttons" then go to card "multi-icon buttons"
        end if
        if char 1 of sam is "N" then
          if Sam is "Next & Prev Cards" then LNPC
        end if
        if char 1 of sam is "O" then
          if Sam is "Organizational Chart" then go to card "the master map"
          else if Sam is "Open Aplication" then openApl
          else if Sam is "OverLoad" then overLoad
        end if
        if char 1 of sam is "P" then
          if Sam is "Panic" then panic
          else if Sam is "Pause" then pause
          else if Sam is "Pixel Grid" then piGrid
          else if Sam is "Power Keys" then set PowerKeys to true
          else if Sam is "Previous & Next Card" then LNPC
          else if Sam is "Pushbuttons" then go to card "Pushbuttons and Switches"
        end if
        if char 1 of sam is "Q" then
          if Sam is "Quit HyperCard" then domenu "Quit HyperCard"
        end if
        if char 1 of sam is "R" then
          if Sam is "ResCopy" then ResCopy
          else if Sam is "ResEdit" then open "ResEdit 1.1B3"
          else if Sam is "Resource Editors" then answer "Look under Editors menu above"
          else if Sam is "Resources" then answer "Look under Editors menu above"
        end if
        if char 1 of sam is "S" then
          if Sam is "Script of... Bkgnd..." then bkgndScript
          else if Sam is "Script of... Button..." then btnScript
          else if Sam is "Script of... Card..." then cardScript
          else if Sam is "Script of... Field..." then fieldScript
          else if Sam is "Script of... Home Stack" then HomeScript
          else if Sam is "Script of... Stack..." then stackScript
          else if Sam is "Script Header" then ScriptHeader
          else if Sam is "Scripts" then answer "Sorry, This feature not yet supported"
          else if Sam is "Show Grid" then piGrid
          else if Sam is "Show Heap Space" then heapSpaceAvail
          else if Sam is "Show Size of This Stack" then SizeofStack
          else if Sam is "Sliders" then go card "sliders"
          else if Sam is "SoundEdit‚Ñ¢" then open SoundEdit
          else if Sam is "Sounds - snd Resources" then go card "the sound sampler"
          else if Sam is "Sounds - snd Resources" then go card "the sound sampler"
          else if Sam is "Sounds Animal" then go card "the sound sampler"
          else if Sam is "Sounds Digitized" then go card "the sound sampler"
          else if Sam is "Sounds Instrument" then go card "the sound sampler"
          else if Sam is "Sounds Keyboard" then go card "Keyboard"
          else if Sam is "Sounds Music" then go card "the sound sampler"
          else if Sam is "Sounds People" then go card "the sound sampler"
          else if Sam is "Sounds snd Resources" then go card "the sound sampler"
          else if Sam is "Sounds Speech Synthesis" then go card "the sound sampler"
          else if Sam is "Sounds Tempo" then go card "the sound sampler"
          else if Sam is "Sounds Tunes" then go card "the sound sampler"
          else if Sam is "Stack Space Available" then stackSpaceAvail
          else if Sam is "Switches" then go card "Pushbuttons and Switches"
        end if
        if char 1 of sam is "T" then
          if Sam is "Text Arrows" then set TextArrows to false
          else if Sam is "Time & Date" then timeDate
          else if Sam is "Titles" then pause
          else if Sam is "Tools" then go to card "the allover analyzer"
        end if
        if char 1 of sam is "U" then
          if Sam is "UserLevel1  Browsing" then set userLevel to 1
          else if Sam is "UserLevel2  Typing" then set userLevel to 2
          else if Sam is "UserLevel3  Painting" then set userLevel to 3
          else if Sam is "UserLevel4  Authoring" then set userLevel to 4
          else if Sam is "UserLevel5  Scripting" then set userLevel to 5
        end if
        if char 1 of sam is "V" then
          if Sam is "Version Number" then HyperCardVersion
          else if Sam is "Visual Effects" then go to card "the effects editor"
          else if Sam is "Volume Adjustment 0  Mute" then
            SetVolume(0)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 1  Soft" then
            SetVolume(1)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 2" then
            SetVolume(2)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 3" then
            SetVolume(3)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 4  Medium" then
            SetVolume(4)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 5" then
            SetVolume(5)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 6" then
            SetVolume(6)
            play harpsichord "c ew"
          else if Sam is "Volume Adjustment 7  Loudest" then
            SetVolume(7)
            play harpsichord "c ew"
          else if Sam is "Volume Controls" then go to card "the controls cultivator"
        end if
        if char 1 of sam is "X" then
          if Sam is "XCMDs" then go to card "the master map"
          else if Sam is "XFCNs" then go to card "the master map"
          else
            put "the " before Sam
            go to card Sam
            if the result <> empty then answer "Sorry, this feature not yet supported."
          end if
        end if
      end if
    end if
  end if
  hide msg
end mousedown

on indexAddName
  global Fred
  ask "What menu ITEM would you like to add?" with "Please type ITEM NAME here."
  if it is "Please type ITEM NAME here." then
  else if it is empty then
  else
    set cursor to 4
    lockcard
    put it into addName
    put first char of addName into Fred
    if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
    else
      put LowerToUpper(char 1 of addName) into char 1 of addName
      put script of field Fred into field Fred
      put addName into line (number of lines in field Fred) + 1 of field Fred
      put SortLines(field Fred, "A" ) into field Fred
      put crunch(field Fred) into field Fred
      set script of field Fred to field Fred
    end  if
  end  if
  put empty into Fred
end indexAddName

on indexDeleteName
  global Fred
  ask "Please enter the EXACT ITEM NAME to delete."
  if it is empty then
  else
    put it into deName
    answer "Delete" && quote & deName & quote & "?" with "Cancel" or "Yes"
    if it is "Yes" then
      set cursor to 4
      lockcard
      put first char of deName into Fred
      if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
      else
        put script of field Fred into field Fred
        Repeat with i = 1 to (number of lines in field Fred + 1)
          if line i of field Fred = dename then
            delete line i of field Fred
            exit repeat
          end if
        end repeat
        --if i > (number of lines in field Fred) then
        --beep 2
        -- answer "You must type name exactly as it appears"
        --else
        put SortLines(field Fred, "A" ) into field Fred
        put crunch(field Fred) into field Fred
        set script of field Fred to field Fred
        -- end if
      end if
    end if
  end if
  put empty into Fred
end indexDeleteName

on indexEditMode
  global Fred
  edit script of field Fred
  set cursor to 4
  lockcard
  put script of field Fred into field Fred
  Repeat with i = 1 to number of lines in field Fred
    put LowerToUpper(char 1 of line i of field Fred) into char 1 of line i of field Fred
  end repeat
  put SortLines(field Fred, "A" ) into field Fred
  put crunch(field Fred) into field Fred
  set script of field Fred to field Fred
  exit to HyperCard
end indexEditMode

on mouseUp

end mouseUp


-- part 94 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=33 top=83 right=264 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A
----- HyperTalk script -----
About Stack Starter
Add Script Header
Allover Analyzer
Animated Icons, 1, 2, 3, 4, 5, 6
Author


-- part 95 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=33 top=83 right=264 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B
----- HyperTalk script -----
Blind Typing
Button Breeder
Button Font Changer
Buttons, Change Font, Create, Direction, Misc..., Multi-Icon, Push, Radio, Sliders, Smart, Switches, Toggle


-- part 96 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=83 right=263 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
Change Button Font
Controls, Guages, Knobs, Meters, Pushbuttons, Sliders, Switches
Cover
Crash
Create an Icon
Credits
Cursors


-- part 97 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=83 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D
----- HyperTalk script -----
Date & Time
DeProtect Stack
Dedications
Descriptions
Digitized Sounds
Disk Space Available
Don't Click Here
Don't Panic


-- part 98 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=83 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E
----- HyperTalk script -----
(Externals Examiner
Edit This..., Bkgnd Script, Card Script, Stack Script
Effects Editor
Effects, Sound, Visual
Explanations


-- part 99 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=83 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F
----- HyperTalk script -----
Field Fabricator
Fields, Locking, Growing, Note, Repositionable
Fonts
Free Space, in this stack, Monitor
Free-Roaming Icons


-- part 100 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=83 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: G
----- HyperTalk script -----
Gauges
Get Specs
Graphic, Examples, Techniques
Grid


-- part 101 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H
----- HyperTalk script -----
(HyperTalk Compiler
(HyperTalk to XCMD Converter
Handlers
Heap Space Available
Helpful Hierarchy
Hidden, Buttons, Fields
Hierarchy
HyperCard Version?
HyperEdit
HyperSound‚Ñ¢


-- part 102 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I
----- HyperTalk script -----
(Incremental Compiler
Icons, Animated 1, Animated 2, Animated 3, Animated 4, Animated 5, Animated 6, Editor, Examples, Ideas, Installed on HomeCard, Initiator, Interactive
Indicaters
Info
Inhieritance Path
Install HomeCard Icon
Intro


-- part 103 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: J


-- part 104 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: K
----- HyperTalk script -----
Keyboard Simulator
Knobs


-- part 105 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: L
----- HyperTalk script -----
Last Updated
List Next & Prev Cards


-- part 106 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: M
----- HyperTalk script -----
(Menu Editor
(Menu Generator
(Menu Maker
(Menus
Make Icons
Map
Master Map
Meters
Mouse Location
Multi-Icon Buttons


-- part 107 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: N
----- HyperTalk script -----
Next & Prev Cards


-- part 108 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: O
----- HyperTalk script -----
Open Aplication
Organizational Chart
OverLoad


-- part 109 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: P
----- HyperTalk script -----
(Pop-Up Menu Maker
(Pull-Down Menu Maker
Panic
Pause
Pixel Grid
Power Keys
Previous & Next Card
Pushbuttons


-- part 110 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Q
----- HyperTalk script -----
Quit HyperCard


-- part 111 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: R
----- HyperTalk script -----
ResCopy
ResEdit
Resource Editors
Resources


-- part 112 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: S
----- HyperTalk script -----
(Script Generator
(Script Tutor
(Smart Scripter
Script Header
Script of..., Bkgnd..., Button..., Card..., Field..., Home Stack, Stack...
Show Grid
Sliders
SoundEdit‚Ñ¢
Sounds, Animal, Digitized, Effects, Instrument, Keyboard, Music, People, snd Resources, Speech Synthesis, Tempo, Tunes
Speech Synthesis
Stack Space Available
Switches


-- part 113 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T
----- HyperTalk script -----
Text Arrows
Time & Date
Titles
Tools


-- part 114 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: U
----- HyperTalk script -----
Updated Last
UserLevel,1  Browsing,2  Typing,3  Painting,4  Authoring,5  Scripting


-- part 115 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: V
----- HyperTalk script -----
Version Number
Visual Effects
Volume Adjustment, 0  Mute, 1  Soft, 2, 3, 4  Medium, 5, 6, 7  Loudest
Volume Controls


-- part 116 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: W


-- part 117 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: X
----- HyperTalk script -----
(XCMD Builder
(XCMD Code Examiner
(XFCN Builder
(XFCN Code Examiner
XCMDs
XFCNs


-- part 118 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Y


-- part 119 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=32 top=82 right=264 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Z


-- part 120 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=123 top=77 right=94 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Leave Background
----- HyperTalk script -----
on mouseUp
  set the editBkgnd to false
  hide the target
end mouseUp





-- part 121 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=243 top=234 right=284 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 4179 / 4179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Starter
----- HyperTalk script -----
on mouseUp
  repeat with i = 4178 to 4179
    set icon of me to i
    play "Click"
  end repeat
  go stack (short name of me)
end mouseUp




-- part 122 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=89 top=119 right=231 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fontField
----- HyperTalk script -----
B Garamond Bold
B Goudy Bold
BETA ITALIC
BI Garamond BoldItalic
BI Goudy BoldItalic
Brennero
Chicago
Courier
Garamond
Geneva
Helvetica
I Garamond LightItalic
I Goudy Italic
Monaco
Muda
New York
Times
Venice


-- part 123 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=15 top=62 right=75 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Volume | Fonts | Style | Size | Height
----- HyperTalk script -----
on mouseDown
  global ActiveField
  set hilite of me to true
  put "field id 13" into jim
  put the rect of the target into holder
  put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  put (item 3 of the rect of me)-(item 1 of the rect of me) into B
  put trunc(A/(B/5))into joe
  if Joe is empty then
  else
    put (item 1 of the clickloc-6) into horiz
    put (item 2 of holder)+13 into vert
    if joe is "0" then
      get PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)
      if it is "0" then
      else
        put word it of " 0  1  2  3  4  5  6  7" into sam
        SetVolume(sam)
        play harpsichord "c ew"
      end if
    else if Joe is "1" then
      if script of field "fontField" is empty then
        answer "Oops, no FONTS in this system." with "Sorry"
        exit mouseDown
      else
        get PopUpMenu(script of field "fontField",0, vert, horiz)
        if it is "0" then
        else
          put (line it of script of field "fontField") into Sam
          if ActiveField <> empty then
            set textFont of ActiveField to sam
          else set textFont to sam
        end if
      end if
    else if Joe is "2" then
      get PopUpMenu(" Plain ; <BBold ; <IItalic ; <UUnderline ; <OOutline ; <SShadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)
      if it is "0" then
      else
        put word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into sam
        if ActiveField <> empty then
          if sam is "Plain" then set textStyle of ActiveField to plain
          else if sam is "Left" then set textAlign of ActiveField to left
          else if sam is "Center" then set textAlign of ActiveField to center
          else if sam is "Right" then set textAlign of ActiveField to right
          else if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to sam
          else
            put "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into temp
            do (temp)
          end if
        else
          if sam is "Plain" then set textStyle to sam
          else if sam is "Left" then set textAlign to left
          else if sam is "Center" then set textAlign to center
          else if sam is "Right" then set textAlign to right
          else if the textStyle is "Plain" then set textStyle to sam
          else
            put "set textStyle" && "to" && ((the textStyle) & "," && sam) into temp
            do (temp)
          end if
        end if
      end if
    else if Joe is "3" then
      get PopUpMenu(" 4; 6 ; 8 ; 9 ; 10 ; <O12 ; 14 ; <O18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)
      if it is "0" then
      else
        put word it of " 4 6 8 9 10 12 14 18 24 36 48 52 72 " into sam
        if ActiveField <> empty then
          set textSize of ActiveField to sam
        else set textSize to sam
      end if
    else if Joe is "4" then
      get PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)
      if it is "0" then
      else
        put word it of " +1  -1  +3  -3  +5  -5  +10  -10 " into sam
        if ActiveField <> empty then
          put "set textHeight of" && ActiveField && "to (" & (textHeight of ActiveField) & (sam) & ")" into temp
          do (temp)
        end if
      end if
    end if
  end if
end mouseDown

on mouseUp

end mouseUp



-- part 124 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=146 right=199 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BS
----- HyperTalk script -----
on ScriptHeader --------- by Robin Shank --------
  global UserName
  Answer "Format script of this" with "stack" or "bkgnd" or "card"
  put it into WhichObject

  lockcard
  do "put script of this" && whichObject && "into tempScript"
  put number of chars in tempScript into OrigCharCount

  If tempScript is empty then
    answer "This" && WhichObject && "does not have a script."
    exit ScriptHeader
  end if

  put empty into Handlers
  put empty into Functions

  -------- Delete existing header -----------------------------
  -- this usually works
  if char 1 of TempScript is "‚àû" then
    repeat with endOfHeader = 2 to number of lines in TempScript
      if char 1 of line endOfHeader of tempScript = "‚àû" then exit repeat
    end repeat
    put endOfHeader
    Delete line 1 to endOfHeader of TempScript
  end if

  ----------- Get names of handlers and functions: ------------
  repeat with index = 1 to number of lines in tempScript
    set cursor to busy
    If first word of line index of tempScript is "On" then
      if number of chars of last line of Handlers > 55
      then put return & "--        " after Handlers
      put second word of line index of tempScript after Handlers
      put  "," after Handlers
    else if first word of line index of tempScript is "function" then
      if number of chars of last line of Functions > 55
      then put return & "--        " after Functions
      put second word of line index of tempScript after Functions
      put  "," after Functions
    end if
  end repeat
  delete last char of Handlers    -- kills last comma
  delete last char of Functions

  ------------ Format the new header --------------------------
  put "‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû Script info for this " & WhichObject & ". ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû" & return & "HANDLERS:" && Handlers & return & return & "FUNCTIONS:" && Functions & return & return & "Size of script:" && number of chars in tempScript && "chars." & "         " & the date  & "         " & UserName & return & "‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû" & return & return into Header

  ---------- Sticks it before the script ----------------------
  put Header before Tempscript
  do "set script of this" && whichObject && "to tempScript"
end ScriptHeader

on backToChicago
  answer "Warning! This will change all buttons" with "OK" or "Cancel"
  if it is "Cancel" then exit backToChicago
  repeat with i = 1 to the number of buttons
    set textfont of btn i to chicago
  end repeat
  repeat with i = 1 to the number of bkgnd buttons
    set textfont of bkgnd btn i to chicago
  end repeat
  flash 2
end backToChicago

on bkgndScript
  answer "Edit this background script or another" with "Cancel" or "This" or "Another"
  if it is "This" then edit script of this background
  else if it is "Another" then
    ask "The name or id of the Background to edit." with "Type the background name or id number here."
    if it is empty then exit bkgndScript
    if it is "Type the background name or id number here." then exit bkgndScript
    put it into bName
    get first char of bName
    if it is in "1234567890" then
      put "id " before bName
    end if
    put "bkgnd " before bName
    put "edit script of" && bName
    answer "Is this background part of this stack?" with "Yes" or "No" or "Cancel"
    if it is "Yes" then edit script of bName
    if it is "No" then
      put filename("STAK") into fName
      if fName is empty then exit bkgndScript
      push card
      set cursor to 4
      lockcard
      put bName && "of stack" && fname into kludge
      go to (kludge)
      if the result <> empty then answer "Unable to find" && bName
      else
        edit script of this bkgnd
      end if
      pop card
    end if
  end if
end bkgndScript

on btnScript
  global eName
  ask "The name or id of button to edit." with "Type button name or id number here."
  if it is empty then
  else if it is "Type button name or id number here." then
  else
    put it into eName
    editScript
  end if
end btnScript

on cardScript
  answer "Edit this card script or another" with "Cancel" or "This" or "Another"
  if it is "This" then edit script of this card
  if it is "Another" then
    ask "The name or id of card to edit." with "Type card name or id number here."
    put it into cName
    if cName is empty then exit cardScript
    if cName is "Type card name or id number here." then exit cardScript
    get first char of cName
    if it is in "1234567890" then
      put "id " before cName
    end if
    put "card " before cName
    put "edit script of" && cName
    answer "Is this card part of this stack?" with "Yes" or "No" or "Cancel"
    if it is "Yes" then edit script of cName
    if it is "No" then
      put filename("STAK") into fName
      if fName is empty then exit cardScript
      push card
      set cursor to 4
      lockcard
      put cName && "of stack" && fname into kludge
      go to (kludge)
      if the result <> empty then answer "Unable to find" && cName
      else
        edit script of this card
      end if
      pop card
    end if
  end if
end cardScript

on deprotect1
  put filename("STAK") into fname
  if fname <> empty then
    deprotect fname
    if the result is empty then
      answer "Deprotect Successful" with "OK"
    else if the result is -44 then
      answer "Sorry, the disk is locked."
    else if the result is -49 then
      answer "Sorry, that file is busy."
    else answer "Failed: unexpected file system error: " & the result with "OK"
  end if
end deprotect1

on editScript
  global eName
  get first char of eName
  if it is in "1234567890" then
    put "id " before eName
  end if
  answer "Is this a card or Background button?" with "Cancel" or "Card" or "Background"
  if it is "Cancel" then exit editScript
  if it is "Card" then put "card " before eName
  else if it is "Background" then put "bkgnd " before eName
  answer "Is this button on this card?" with "This Card" or "This Stack" or "Another"
  put it into temp
  if temp is "This Card" then edit script of eName
  else
    ask "The name or id of card it's on." with "Type card name or id number here."
    put it into cName
    if cName is empty then exit editScript
    if cName is "Type card name or id number here." then exit editScript
    get first char of cName
    if temp is in "1234567890" then
      put "id " before cName
    end if
    put "card " before cName
    if temp is "This Stack" then
      go to (cName)
      if the result <> empty then answer "Unable to find" && cName
      else
        edit script of eName
      end if
    else if temp is "Another" then
      put filename("STAK") into fName
      if fName is empty then exit editScript
      push card
      set cursor to 4
      lockcard
      put cName && "of stack" && fname into kludge
      go to (kludge)
      if the result <> empty then answer "Unable to find" && cName
      else
        edit script of eName
      end if
      pop card
    end if
  end if
end editScript

on fieldScript
  global eName
  ask "The name or id of field to edit." with "Type field name or id number here."
  if it is empty then
  else if it is "Type field name or id number here." then
  else
    put it into eName
    editScript
  end if
end fieldScript

on getSpecs
  put SysEnvirons(2) into i
  if i=0 then put "This is an unknown machine." into it
  else if i=1 then put "This is a Mac 512E." into it
  else if i=2 then put "This is a Mac Plus." into it
  else if i=3 then put "This is a Mac SE." into it
  else if i=4 then put "This is a Mac II." into it
  else put "This is an unknown machine." into it
  answer it
  put SysEnvirons(4) into i
  if i=0 then put "The CPU is unknown." into it
  else if i=1 then put "The CPU is a 68000." into it
  else if i=2 then put "The CPU is a 68010." into it
  else if i=3 then put "The CPU is a 68020." into it
  answer it
  if SysEnvirons(5) then answer "This machine has a math co-processor."
  else answer "This machine has no math co-processor."
  get SysEnvirons(3)
  if char 1 of it <> "0" then put char 1 of it into temp
  put "The system version is " & char 2 of it & "." & char 3 of it into temp
  if char 4 of it <> "0" then put char 4 of it after temp
  answer temp
  get the version
  if it is "1.0" then
    put "1.01" into temp1
  else if it is "1.1" then
    put "1.1" into temp1
  else
    if char 1 of it <> "0" then put char 1 of it into temp1
    put char 2 of it & "." & char 3 of it after temp1
    if char 4 of it <> "0" then put char 4 of it after temp1
  end if
  answer "This HyperCard version is" && temp1
  get getscreen()
  put "The screen size is " & item 3 of it & " by " & item 4 of it & " pixels." into temp
  answer temp
end getSpecs

on getSpecsFirst
  global FastMac, BigScreen
  put empty into card field "Specs"
  lockcard
  put empty into FastMac
  put empty into BigScreen
  put SysEnvirons(2) into i
  if i=0 then put "This is an unknown machine." into temp
  else if i=1 then put "This is a Mac 512E." into temp
  else if i=2 then put "This is a Mac Plus." into temp
  else if i=3 then put "This is a Mac SE." into temp
  else if i=4 then
    put "This is a Mac II." into temp
    add 1 to FastMac
  else put "This is an unknown machine." after temp
  put return after temp
  put SysEnvirons(4) into i
  if i=0 then put "The CPU is unknown." after temp
  else if i=1 then put "The CPU is a 68000." after temp
  else if i=2 then put "The CPU is a 68010." after temp
  else if i=3 then
    put "The CPU is a 68020." after temp
    add 1 to FastMac
  end if
  put return after temp
  if SysEnvirons(5) then
    put "This machine has a math co-processor." after temp
    add 1 to FastMac
  else put "This machine has no math co-processor." after temp
  put return after temp
  get SysEnvirons(3)
  if char 1 of it <> "0" then put char 1 of it after temp
  put "The system version is " & char 2 of it & "." & char 3 of it after temp
  if char 4 of it <> "0" then put char 4 of it after temp
  put return after temp
  get the long version
  if it is "1.0" then
    put "1.0.1" into temp1
  else if it is "1.1" then
    put "1.1" into temp1
  else
    if char 1 of it <> "0" then put char 1 of it into temp1
    put char 2 of it & "." & char 3 of it after temp1
    if char 4 of it <> "0" then put "." & char 4 of it after temp1
  end if
  put "This HyperCard version is " & temp1 after temp
  put return after temp
  get getscreen()
  if it <> "0,0,512,342" then add 1 to BigScreen
  put "The screen size is " & item 3 of it & " by " & item 4 of it & " pixels." after temp
  put temp into card field "Specs"
end getSpecsFirst

on installHomeCardIcon
  put short name of this stack into temp
  set the cursor to 4
  show bkgnd btn "Stack Starter"
  choose button tool
  get the location of bkgnd btn "Stack Starter"
  click at it
  set the name of bkgnd btn "Stack Starter" to temp
  doMenu "Copy Button"
  go to stack "home"
  doMenu "Paste Button"
  choose browse tool
  pop card
  set the name of bkgnd btn temp to "Stack Starter"
  hide bkgnd btn "Stack Starter"
  answer "HomeCard Button Installed"
end installHomeCardIcon

on OsErr err
  -- From Dewi Williams
  if err > 0 then -- XFCN convention
    put "Parameter error with function" into errstr
  else if err is -59 then
    put "Problem during rename" into errstr
  else if err is -54 then
    put "Attempt to open locked file for writing" into errstr
  else if err is -46 then
    put "Volume locked by software" into errstr
  else if err is -45 then
    put "File locked" into errstr
  else if err is -44 then
    put "Volume locked by hardware" into errstr
  else if err is -43 then
    put "File not found" into errstr
  else if err is -37 then
    put "Bad volume or file name" into errstr
  else if err is -36 then
    put "I/O error" into errstr
  else if err is -35 then
    put "No such volume" into errstr
  else if err is -34 then
    put "Disk is full" into errstr
  else if err is -49 then
    put "File already open for writing" into errstr
  else
    put "Failed with error" && err into errstr
  end if
  answer errstr with "OK"
end OsErr

on ShowHiddenBtns
  global UnHidden
  answer "WARNING - this will hilite all hidden buttons!" with "OK" or "Cancel"
  if it is "Cancel" then exit ShowHiddenBtns
  repeat with i = 1 to the number of card buttons
    if the visible of card btn i is false then
      set hilite of card btn i to true
      show card btn i
      put UnHidden & return & "set hilite of card btn" && i && "to false" & return & "hide card btn" && i into UnHidden
    end if
  end repeat
  repeat with j = 1 to the number of bkgnd buttons
    if the visible of bkgnd btn j is false then
      set hilite of bkgnd btn j to true
      show bkgnd btn j
      put UnHidden & return & "set hilite of bkgnd btn" && j && "to false" & return & "hide bkgnd btn" && j into UnHidden
    end if
  end repeat
  if line 1 of UnHidden is empty then delete line 1 of UnHidden
  answer "Would you like to Re-Hide these buttons?" with "OK" or "Cancel"
  if it is "Cancel" then exit ShowHiddenBtns
  put number of lines in UnHidden into lineNum
  put 1 into done
  repeat until done >lineNum
    do line done of UnHidden
    add 1 to done
  end repeat
  put empty into UnHidden
end ShowHiddenBtns

on ShowHiddenFields
  global ResetHidden
  repeat with i = 1 to the number of card fields
    if the visible of card field i is false then
      show card field i
      put ResetHidden & return & "hide card field" && i into ResetHidden
    end if
  end repeat
  repeat with i = 1 to the number of bkgnd fields
    if the visible of bkgnd field i is false then
      show bkgnd field i
      put ResetHidden & return & "hide bkgnd field" && i into ResetHidden
    end if
  end repeat
  if line 1 of ResetHidden is empty then delete line 1 of ResetHidden
  answer "Would you like to Re-Hide these fields?" with "OK" or "Cancel"
  if it is "Cancel" then exit ShowHiddenFields
  put number of lines in ResetHidden into lineNum
  put 1 into done
  repeat until done >lineNum
    do line done of ResetHidden
    add 1 to done
  end repeat
  put empty into ResetHidden
end ShowHiddenFields

on updated
  --Thanks to: Dewi Williams
  --2227 Juniper Court, Boulder CO 80302
  --[phone],     Delphi: DEWI

  answer "Get update for this stack or another?" with "Cancel" or "This Stack" or "Another"
  if it is "Cancel" then exit updated
  if it is "This Stack" then
    get the long name of this stack
    put the length of it into temp
    put char 8 to temp-1 of it into thisfile
  else
    put "Select a stack, please"
    put filename() into thisfile
    hide msg
    if thisfile is empty then exit updated
  end if
  put "Started " into info
  convert fileModDate(thisfile,true) to short date
  put it after info
  put ";  Last modified " after info
  convert fileModDate(thisfile,false) to short date
  put it after info
  answer info
end updated



-- part 125 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=324 top=69 right=87 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sndField
----- HyperTalk script -----
0
1
2
3
4
5
6
7
8
9
A
B
Boing
C
Car
Cat
Click
Coming
Crashbang
Crunch
Cucu
D
Dog
DoorClose
DoorOpen
Drip
E
Evil Laugh
F
Frog
G
Get Lost
Gunshot
H
Harpsichord
Hello
Honk
I
J
K
Knock
L
M
Metal Falling
N
O
P
Q
R
S
Silence
SpinCylinder
Static
Step
Switch
T
U
Uuh
V
W
X
Y
Yeow
Z